home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / rexx / Homebanking.lha / Homebanking / Install < prev    next >
Encoding:
Text File  |  1999-02-19  |  1.4 KB  |  32 lines
  1. /*  $VER: Install Version 0.2 (22.01.1999) © Frank Seidel"
  2.  
  3.     damit wird auf Wunsch das Skript "Checküberweisung.adm"
  4.     nach WBStartup kopiert. Dieses Skript prüft beim Booten
  5.     ob für den jetzigen Tag fällige Überweisungen vorliegen.
  6. */
  7.  
  8. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  9.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  10.       EXIT 10
  11. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  12.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  13.       EXIT 10
  14.  
  15. Flags = 'rtez_flags = ezreqf_centertext'
  16.  
  17. call rtezrequest 'Soll beim beim Booten auf'||'0A'x||'fällige Überweisungen geprüft werden ?'||'0A'x||'---------------- Achtung ----------------'||'0A'x||'Nur damit funktionieren'||'0A'x||'mehrere Überweisungen am gleichen Tag !!!','_Ja klar doch |_Achne,will ich nicht','Frage', Flags
  18. if RESULT = 1 THEN do
  19.     address command 'c:copy CheckUeberweisung.adm to sys:WBstartup/'
  20.     address command 'c:copy CheckUeberweisung.adm.info to sys:WBstartup/'
  21.     call rtezrequest 'habe CheckUeberweisung.adm nach'||'0A'x||'nach WBStartup kopiert','_Na Prima','Hinweis', Flags
  22.     IF exists('Sys:utilities/Multiview') Then
  23.          address command 'c:run >NIL: sys:utilities/Multiview Homebanking.guide'
  24.     end
  25. else do
  26. call rtezrequest 'Tja, dann ist nichts zu installieren','_Auch gut','Hinweis', Flags
  27.    IF exists('Sys:utilities/Multiview') Then
  28.       address command 'c:run >NIL: sys:utilities/Multiview Homebanking.guide'
  29.  
  30. end
  31.  
  32.